home *** CD-ROM | disk | FTP | other *** search
/ Clickx 47 / Clickx 47.iso / assets / software / quickzip.exe / {app} / Scripts / Convert all Zip to 7z.akp < prev    next >
Encoding:
Text File  |  2003-12-08  |  315 b   |  14 lines
  1. var FileList : TStrings;
  2.     i : integer;
  3. begin
  4. Open('xyz.zip');
  5. FileList := TStringList.Create;
  6. FileList := PollFileList('c:\temp\*.zip',false);
  7. for i := 0 to FileList.count -1 do
  8.   begin
  9.   Writeln('Converting ...'+filelist.strings[i]);
  10.   Convert(filelist.strings[i],'7Z');
  11.   end;
  12. FileList.Free;
  13. end.
  14.